APPENDIX A 
A 6502 ASSEMBLER 



INTRODUCTION 

Developing short programs for the 6502 may be done on paper, and 
the programs may then be entered on a 6502 board. However, if longer 
programs are to be developed (say more than a few dozen 
instructions), or else if a large number of small programs is to be 
developed, the convenience of an assembler becomes of significant im- 
portance. Since it is assumed that most readers seriously interested in 
applying a 6502 to real applications will start developing such pro- 
grams, this book includes the full listing of an assembler for the 6502 
written in BASIC for those who do not already have access to a 6502 
assembler. 

The advantage of an assembler for the 6502 written in BASIC is that 
it can be run on any computer equipped with BASIC which may be ac- 
cessible to the user. The version of BASIC used in this program is the 
one available on Hewlett-Packard computers. It can be characterized 
as a subset of most microcomputer BASICs in that it does not include 
the features found on the latter ones. Using this assembler on a com- 
puter having a different BASIC will involve a translation process. 
However, the translation effort should be moderate, in view of the 
fact that most popular BASICs available on microcomputers include 
many more features than the one which has been used for this 
assembler. This assembler is therefore essentially upwardly compatible. 
In fact, a user who is good at programming in his BASIC will pro- 
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bably be capable of effecting a significant reduction in the number of 
instructions used for this assembler. 

This assembler has been used to assemble a large number of pro- 
grams for the 6502 and has performed successfully. To the best of our 
knowledge, it is therefore a reliable product. However, it is included 
here for educational purposes only and not warranted for any purpose 
whatsoever. A Microsoft BASIC version of this assembler will be 
published in the near future for readers interested in this particular 
version. 

A complete listing of the assembler is shown in this section, and a 
sample output demonstrating its operation is shown below. 

AH the programs at the end of Chapter Four have been assembled 
with this assembler. 



GENERAL DESCRIPTION 

ASM 65 is a complete 6502 mnemonic assembler. It recognizes all 
industry standard mnemonics, and will produce the standard hexa- 
decimal listings, as shown on the example of Fig A-L 

In addition, this assembler provides the industry standard direc- 
tives, with only exception the use of "." to indicate current location 
assignments and references. The directives available are: .BYT, 
. WORD,. DBYT,. TEXT. The user is referred to any manufacturer's 
assembler description for the details of these directives. 

USING THE ASSEMBLER 

The ASM 65 is written in Hewlett-Packard 2000 series F BASIC. A 
description of the features of this particular BASIC implementation 
appear later in this section. Few changes should be needed to adapt 
this interpreter to other versions of BASIC to which the reader would 
have access. 

ASM 65 operates on serial files. A minimum of three files are equipped 
and four are normally used. They are: the source file, the symbol 
table file, a temporary file, and optionally a destination file distinct 
from the source file. 

The input file contains the assembly language instructions. It must 
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X CAT SRC 

» MEMORY BLOCK MOVE PROGRAM 

rNQVES UP TO 2S3 BYTES FROM A TABLE STARTING AT 

?LOCl TO A TABLE STARTING AT L0C2. LENGTH OF THE 

JSECTION TO BE MOVED IS IN MOVLEN. 

MOVLEN <**OQ 

LOCI =*2O0 

L0C2 »*3©0 

I 

LDX MOVLEN J LOAD LENGTH OF MOVE TO INDEX 
LOOP LBA LOCl»X JLOAO BYTE TO BE MOVED 

STA LOC2.X f STORE BYTE TO BE MOVED 

DEX i COUNT DOWN 

BPL LOOP *IF NOT DON£» MOVE NEXT BYTE 

RTS SDONE 
X RUN ASH65 
SOURCE FILE TSRC 
OBJECT FILE TDEST 
PRINTOUT TYES 
ASSEMBLY BEGINS. . . 

t MEMORY BLOCK MOVE PROGRAM 

I MOVES UP TO 25S BYTES FROM A TABLE STARTING AT 
fLOCI TO A TABLE STARTING AT LOC2. LENGTH OF THE 
JSECTIQH TO BE MOVED IS IN MOVLEN. 



5 LOAD LENGTH OF MOVE TO INDEX 

J LOAD BYTE TO BE MOVED 

i STORE BYTE TO BE MOVED 

i COUNT DOWN 

J IF NOT DONE* MOVE NEXT BYTE 

{DONE 





MOVLEN 
LOCI 
L0C2 
1 

LOOP 


=*00 
»*200 

=♦300 


0000 t AA 00 
0002! 8D 00 02 
OOOS! 9D 00 03 
0008! CA 
0009! 10 F? 
OOOB! 60 


LDX MOVLEN 
LDA LOCltX 
STA L0C2»X 

DEX 

BPL LOOP 

RTS 


SYMBOL TABLE! 
MOVLEN 0000 
LOOP 0002 

DONE 


LOCI 



0200 



L0C2 



0300 



Fig At: Using th« ASM 65 Asw»mbl«r 



therefore contain ASCII text, and must be structured as per the rules 
of the assembler syntax (described in the next section). In general, the 
input lines can be written in free format, with the fields separated by 
one or more spaces. However, any label must start in column one. 
Any line without a label may not start in column one. 

The assembler will automatically format the comment field on the 
output file. However it will not format the other fields within the in- 
structions so that the user may tabulate his input statements in any 
reasonable way for clarity. This feature is intended to improve reada- 
bility. 
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The output file is also ASCII text, including the representation of 
all numbers. The output file may optionally be printed after the sec- 
ond pass of the assembler has been executed. A prompt is printed on the 
listing, or appears on the screen as "PRINTOUT?" and the user may 
specify "yes'* or "no." 

The assembler provides extensive diagnostics and will describe all 
errors it has identified, then list them on the output. 

In this implementation, the error printout may contain various field 
markers such as operator field limiters ("I"), and the internal unre- 
solved reference delimiter (*'**"). 

The symbol table gives the usual hexadecimal representation for all 
symbolic labels used by the program. An example is shown in Fig A-2. 



SYMBOL TABLE; 
MGVLEM 0000 LOCI 0200 L0C2 0300 

LOOP 0002 



Fig A-2: Tb» Symbol Tabic 

SYNTAX 
Constants 

Constants may be expressed in any of the four usual number repre- 



* Hexadecimal: the constant must be preceded by a "$". Exam- 
pie: "LDA $20'* will load the accumulator from memory address 



* Binary: it must be preceded by a "%'*. Example: "LDA 
%1 Until" will load the accumulator with all ones., 

* Decimal: usual representation. Example "LDA #0" will load the 
accumulator with the decimal value zero. 

•ASCII: must be preceded by a " * ". Example: "LDA* A" will 
load the ASCII code for A into the accumulator. 

Arithmetic Expressions 

Arithmetic expressions may be used in the operator field, in a label 
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assignment, or in a memory allocation instruction. 

The operand in an arithmetic expression may be a number expressed 
in any representation, or a label, or a "»** (the current location sym- 
bol) or any combination of those. The legal operators are ** + " and 
"- **. In the case where more than one operator is used, the arith- 
metic expression will be evaluated from left to right. 

Comments 

Comments must be preceded by a ";". They may begin in any col- 
umn including column one. All comments will be justified in the mid- 
dle of the output sheet unless they begin in column one. 

Memory Assignments 

Memory assignments are performed by one or more of the four di- 
rectives: 

.BYT -Assigns one byte of data to one memory loca- 

tion. 

.WORD - Assigns two bytes of data to two consecutive 
memory locations, low order byte first. 

.DBYT - Assigns two bytes of data to two consecutive 

memory locations, high order byte first. 

.TEXT -Converts an ASCII string to hex data, and 

stores it in consecutive memory locations. The 
string must be delimited by two identical non- 
blank characters. 

There is no end directive- an end-of-file is used instead. 

Example of a memory assignment: 

.BYT $2A, WORDCONST 
.WORD 2, %10 

HP2000F BASIC: 

Hewlett-Packard BASIC is different from many common mini- and 
microcomputer BASICs, but is easily adapted. The following is a list 
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6502 APPLICATIONS 

of features which differ from most BASICs, or from the Dartmouth 

standard. 



Files are declared in a FILES statement at the beginning of the pro- 
gram and are numbered in the order in which they appear in it. The 
ASSIGN statement assigns a file specified by its first argument to a file 
number specified by the second argument. The third argument is a 
dummy variable. A star appearing in a FILES statement means a file 
will later be assigned to that file position by an ASSIGN statement. 
The READ statement reads the file. Its first argument, preceded by a 
"#**, is the file number of the file to be read from. If the record 
number is one, and there is no semicolon, the statement serves to reset 
the file pointer to 0, as in "READ #2, 1". Any arguments after the 
semicolon are those variables to be read. 

The PRINT statement is similar to the read statement. It also has a 
special form, "PRINT #2,END", which makes an end-of-file marker 
on the file. 

The IF END # THEN statement operates in a way analogous to a 
vectored interrupt. When an end-of-file occurs on a read, program ex- 
ecution will continue at the line number mentioned after the THEN, 
instead of causing the program to crash. This will occur even if the 
computer is not currently executing the statement: i.e., the end-of-file 
vector need only be specified once, unless it needs to be changed. 

Strings 

Strings are one dimensional, and can only be dimensioned as such. 
To assign (zero) length to a string, or clear it, a statement of the type 
"L$ = " " is used. Characters in a string are referenced as follows: 
to reference a substring within a larger string, the form "T$(a,b)" is 
used where a and b are expressions signifying respectively the first and 
last character addresses in the main string of the desired substring. 
Characters in a string are addressed from left to right, starting at 1 . 
Example: if A$ = "ABCDE" and the statement "B$ = A$(2,3)" is ex- 
ecuted, B$ will become "BC". 

The form "T$(a)" references all characters in T$ starting with 
character #a and continuing on to the end of T$. 
Example: if AS = "12345", A$(3) means the substring "345". 



The string functions CHRS and ASC$, which respectively convert 
an ASCII decimal number into a one-character string, and a one- 
character string into its decimai ASCII equivalent are not available, so 
ASM65 reads a string of ordered ASCII characters from a system file 
called SASCHF, which it then uses for number and string conversion. 

MAX returns the maximum of 2 values. 

Example: "B = 1 1 MAX 9" would yield 1 1 . 
MIN returns the minimum of 2 values. 

LIN when in a print statement adds amount of linefeed specified in its 
argument to output. 

The above definitions are intended only as guidelines for the transla- 
tion of ASM65 into other versions of BASIC. 



Fig A-3: 6502 Atsembivr Listing 
copyright © 1979, Syb«x Inc. 



ASM65 



10 REM : ********** 6502 MNEMONIC ASSEMBLER. VERSION 2.0 ********** 

20 REH 

30 REM : WRITTEN IN MP2000F TSS BASIC. 

40 REM J CAN BE USED WITH ALL 65XX PROCESSORS AS MADE BY COMMODORE. 

50 REM I SYNERTEK, AND ROCKWELL. 

60 REM i ALL MNEMONICS AND DIRECTIVES ARE INDUSTRY STANDARD. WITH 

70 REM ; THE EXEPTION OF" THE USE OF ' . ' FOR CURRENT ADDRESS. 

80 R«10 

90 T9-0 

1QO A-0 

U0 DIM L»C723.M»C723»0tC723»C*C723»Z»r,723.P»C723.T*C72J 

120 DIM A*C723»N«C723 

130 DIM I«C723 

140 L=0 

150 FILES *»SYMTAB.TEMP.*.*ASCIIF 

160 PRINT 'SOURCE FILE 'i 

170 INPUT T* 

180 PRINT 'OBJECT FILE '* 

190 INPUT 0» 

200 ASSION T«»1»Q8 

210 ASSIGN 0*»4.08 

220 READ #1.1 

230 PRINT »2.1 

240 PRINT #3.1 

250 R8=0 

260 PRINT 'PRINTOUT •* 

270 INPUT It 

280 IF I* <> 'NO* THEM 30O 

290 R8*l 

300 PRINT 'ASSEMBLY BEGINS...' 

310 C*0 
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320 IF END #1 THEN 2440 

330 LI*** 

340 I*=" 

350 ««-•• 

360 ©»«•* 

370 CI-'* 

380 Z*»« 

390 L-L + i 

400 REM********** SEPARATE TOKENS* STORE LABEL ASSIGNMENTS ********** 

410 READ tl!I» 

420 T5»C 

430 IF I*=»" THEN 830 

440 P«l 

450 PI*'** 

460 GOSUB 3970 

470 IF P1*=0 THEN 510 

480 IF Pl*l THEN 800 

490 CI-IICP13 

500 II»IIC1«P1~1J 

510 IF I»Clrl3»<* * THEN 590 

520 GGSUB 3790 

530 LI*PI 

540 IF LI <> ' . " THEN 590 

550 HI**.* 

560 GOSUB 4940 

570 LI-'* 

580 GOTO 860 

590 GOSUB 3790 

60Q MI-PI 

610 IF MIClt33-".W0* THEN 3110 

620 IF MIClr33=«*.TE* THEN 3110 

630 IF MIClt33»».BV THEN 3110 

640 IF MIClt33«*.DB« THEN 3110 

650 IF Ml <> •* THEN 850 

660 CI»CIClt343 

670 IF LEN(LI) <> THEN 700 

680 II-IIC1.193 

690 GOTO 820 

700 GOSUB 3790 

710 NI-PI 

720 IF LEN<NI) <> THEN 750 

730 Tl-C 

740 GOTO 780 

750 GOSUB 4070 

760 IF T4«2 THEN 830 

770 Tl-Fl 

780 PRINT ♦a.fttiTt 

790 PRINT 12* END 

800 I*«IIClfLEN(II> MIN 553 

810 ZIC17tl7+LEN<II>3»II 

820 Z*C(LEN<II>*19 MAX 38) MIN 723-CI 

830 PRINT I38ZI.T5 

840 GOTO 320 

850 IF MIC it 13 <> *♦• THEN 1050 

860 P*"*»* 

870 GOSUB 3970 

880 IF P1>0 THEN 910 

890 PRINT 'MISSING '«' IN LINE * it, 

900 GOTO 3090 

910 P=P1*1 

920 SOSUB 3790 

930 IF PIC It 13 <> '« THEN 960 

940 PRINT 'MISSING ARGUMENT IN LINE ' *L 

950 GOTO 3090 

960 NI-PI 
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970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 



4070 

<> 2 THEN 1010 

•ILLEGAL FORWARD REFERENCE IN LINE 

3090 



THEN 780 



GOSUB 

IF T4 . 

PRINT *"IFRAI FnstUARB REFERENCE IN LINE * tL 

GOTO 

Tl-C 

OF1 

IF L* <> 

GOTO 800 

RESTORE 5710 

IF !**=••• THEN 1140 

FOR 1=1 TO 56 

READ T* 

IF Tt-Mf THEN 1130 

NEXT I 

PRINT 'UNKNOWN OPCODE IN LINE * JL 

GOTO 3090 

0-1 

IF L*«** THEN 1170 

PRINT »2IL*»C 

PRINT #2» END 

GOSUB 3750 

0*=»P* 

I*CP~L£N<0»>-lfP~LEN<0«>-13»'!* 

REM********** FIND ADDRESSING MODES* LOAD EFFECTIVE ADDRESS ********** 

IF 0* <> *• THEN 1240 

M«l 

GOTO 2200 

IF 0* <> "A« THEN 1270 

M»2 

GOTO 2200 

IF 0*C1*13 <> •#• THEN 1320 

H=3 

P=P+1 

N««0*C23 

GOTO 1870 

IF H*C1»13 <> *8" THEN 1460 

IF H*»'BIT' THEN 1460 

H=12 

N«=0* 

GOSUB 4070 

IF T4 <> 2 THEN 1400 

A—200 

GOTO 1970 

A-Fl-C-2 

IF A >- THEN 1430 

A- 256+ A 

IF ABS<F1-C> <« 127 THEN 1970 

PRINT 'BRANCH OUT OF RANGE IN LINE •fL 

GOTO 3090 

P»*'(* 

P=P-LEN<0*> 

GOSUB 3970 

P5»P1 

pt»",» 

GOSUB 3970 

P6=P1 

P7*0 

IF NOT P6 THEN 1610 

IF I$CP6+1»P6+13 <> *X* THEN 1580 

P7-1 

GOTO 1610 

IF I«CP6+l»P6+13-*y THEN 1610 

PRINT 'BAD ADDRESSING MODE IN LINE • »L 

GOTO 3090 

IF P5 <> THEN 1780 
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1620 GOSUB 3790 

1630 N**P* 

1640 IF NOT P6 OR NOT P7 THEN 1470 

16.50 H=*5 

1660 GOTO 1710 

1670 IF NOT P6 THEN 1700 

J 680 M»6 

1690 GOTO 1710 

1700 M»4 

1710 GOSUB 4070 

1720 A=F1 

1730 IF T4 <> 2 THEN 1750 

1740 A— 1000 

1750 IF ABStA) <» 255 THEN 1970 

1760 H=M*3 

1770 GOTO 1970 

1780 GOSUB 3790 

1790 N*=P*C23 

S800 IF NOT P6 OR NOT P7 THEN 1830 

1810 M»I0 

1820 GOTO 1870 

1830 IF NOT P6 THEN 1860 

18*0 »*tt 

1850 GOTO 1870 

I860 H*t3 

1870 GOSUB 4070 



1890 



1910 

1920 
1930 
1940 
X950 



A«F1 

IF (H <> 10 AND It <> 11) OR A <» 255 THEN 1920 
900 PRINT 'UALUE TOO LARGE FOR ZERO PAGE IN LINE *»L 
GOTO 3090 

IF T4 <> 2 THEN 1970 
A=-XQOO 

IF M-13 THEN 1970 
A— 200 

REN********** PRINT OPCODES 8 EA ON FILE ********** 
IF A >« Q THEN 2070 
ZSC10.U3-**** 



1990 


OC+1 




2000 


IF H <> 12 THEN 2020 




2010 


Z«U»U3-'R* 




2020 


W9«A+256 




2030 


IF W >* THEN 2200 




2040 


Z*tl3»l43»**** 




2050 


C»C+i 




2060 


GOTO 2200 




2070 


n»t$ 




2080 


I=A 




2090 


GGSU9 4940 




2100 


T*=A* 




2110 


A*»*000* 




2120 


A*£43=»T* 




2130 


IF (1* >* 3 AND M <* 6) OR (M >« 10 AND M < 


■ 12) THEN 21 


2140 


Z«13»143»A*CL£N<A*>-3»LEN<At)-2J 


» 


2150 


Z*C10»113=A*CLEN<A*)-13 




2160 


C*C+2 




2170 


GOTO 2200 




2180 


Z*C10*113«A«CL£N<A*>-13 




2190 


C=C+1 




2200 


R»16 




2210 


r*Ta 




2220 


GOSUB 4940 




2230 


r*»'0Q0* 




2240 


T*C43=A* 




2250 


Z« I * 41*T*CLEN< T* >-3 J 




2260 


RESTORE 5140 
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2270 FOR 1=1 TO <0-l>*13+M 

2280 READ T» 

2290 NEXT I 

2300 IF Tt <> * * THEN 2370 

2310 IF tt>6 OR «<4 THEN 23S0 

2320 M-M+3 

2330 C=T5 

2340 GOTO 1970 

2350 PRINT 'ILLEGAL ADDRESSING MODE IN LINE 'it 

2360 GOTO 3090 

2370 Z«E7»83«TS 

2380 Z»E5,53-*:» 

2390 C*C+1 

2400 Z»C17.17+L£NU*>3-I* 

2410 Z*t< 19+LENU*)) MAX 383=C»E1 »72~< 19+LEN< I*> MAX 38)3 

2420 PRINT »3»Z**T5 

2430 GOTO 320 

2440 REM********** SECOND PASS: RESOLVE FWD REFERENCES ********** 

24S0 PRINT *2> END 

2460 PRINT #3? ENS 

2470 READ »2rl 

2480 L=0 

2490 READ #3.1 

2500 PRINT t4»i 

2510 IF END 43 THEN 2870 

2520 P=l 

2530 READ »3JI»»T5 

2540 L*Lfl 

2550 IF I**" THEN 2850 

2540 P$»"f" 

2570 GOSUB 3970 

2580 IF P1*0 OR Pl*17 THEN 2610 

2590 P-Pt 

2600 I*CP»P3*' * 

2610 IF I it 10. 103 <> "*■ THEN 2850 

2620 GOSUB 3790 

2630 H%<*P* 

2640 IF N»EI>I3 <> *(* THEN 2660 

2650 N«=N*E23 

2660 GOSUB 4070 

2670 IF T4 <> 2 THEN 2700 

2680 PRINT 'IRRESOLVABLE FWD REF / BAD LABEL IN LINE "JL 

2690 GOTO 3090 

2700 I=F1 

2710 IF I*E11>113 <> "R* THEN 2750 

2720 I»Fl-T5-2 

2730 IF I >- THEN 2750 

2740 I«I+254 

2750 R«16 

2760 GOSUB 4940 

2770 T»*A« 

2780 A«»*000" 

2790 A»E43=<Tf 

2800 IF X»E13tl41 <> **** THEN 2840 

2810 ISE13,143=A*CL£N(A$>-3.LEN<A«>-13 

2820 I«£10.113*A«ELEN<A*>-13 

2830 GOTO 2850 

2840 I«C10rU3*A«ELEN(A*)-11 

2850 PRINT #4 i I* 

2860 GOTO 2510 

2870 PRINT *4» ENS 

2880 IF R8=l THEN 3080 

2890 IF END #4 THEN 2940 

2900 READ #4fl 

2910 READ 44* I» 



253 



2920 PRINT X* 

GOTO 2910 

REAP. #2fl 

2930 PRINT LIN<2>* "SYMBOL TABLE J" 

2960 IF END #2 THEN 3080 

2970 FOR 16=1 TO 3 

2980 READ #2J0*»T5 

2990 R«14 

3000 I-TS 

3010 GOSUB 4940 

3020 T**'0000* 

3030 T*ELEN<T*> + 13»*A» 

3040 PRINT TAB<(I&-l>*25+l>fO*»TAB<<I&-l)*25+13>>T*CLEN<T*>-33» 

3050 NEXT 16 

3060 PRINT 

3070 GOTO 2970 

3080 END 

3090 PRINT •<'I* , >* 

3S.00 END 

3110 REM********** PROCESS MEMORY LOADS ********** 

3J20 Q7-1 

3130 IF M«C2*33 <> *T£» THEN 3260 

3140 IF Q7 <> I THEN 3190 

3 ISO GOSUB 3730 

3160 P»P~LEN<P«> 

3170 0«-t*CP»P3 

3180 P»P+1 

3190 IF P <■ 72 THEN 3220 

3200 PRINT "SAD DELIMITER IN LINE * t L 

3210 GOTO 3090 

3220 P*Cn-»" 

3230 P»C2»23*I*CPfP3 

3240 IF P*C2f23=0« THEN 320 

3250 GOTO 3280 

3260 GOSUB 3790 

3270 Z*=* 

3280 P»P+1 

3290 IF LEM<P*)*0 THEN 320 

3300 N»*P* 

3310 GOSUB 4070 

3320 IF T4 <> 2 THEN 3350 

3330 PRINT 'BAD. LABEL IN MEMORY ASSIGNMENT OF LINE ML 

3340 GOTO 3090 

3350 R*I6 

3360 I»F1 

3370 GOSUB 4940 

T*»A* 

Af**OGO* 

Atm»Tt 

3410 IF M*C2»23 <> *«• THEN 3460 

3420 Z*C.t0*lI3»A»ELEN<A*>-3»LEN<A«>-23 

3430 Z»E7»83»A*CL£N<A*)-I3 

3440 C»C*2 , 

3450 GOTO 3560 

3460 IF M*C2»23- , D'" THEN 3530 

3470 IF FK256 THEN 3500 

3480 PRINT "NUMBER TOO LARGE IN MEMORY ASSIGNMENT OF LINE ' iL 

3490 GOTO 3090 

3S00 Z*C7*83*A*CL£N(A*>~13 

3510 C»C+i 

3520 GOTO 3560 

3530 Z«C7*83»A*ELEN<.At>-3fLEN(A*)-23 

3540 Z*C10»113»A*CLEN(A*)-13 

3550 C-CM 

3560 I»TS 



3570 R=16 

35SO GGSUB 4940 

3590 T««'000* 

3600 T«C43«A» 

3610 Z*Cl»43»T*tL£N<TS>-33 

3620 Z$C5.53«'J* 

3630 IF 07 <> 1 THEN 3700 

3640 IF LEN(L»>=0 THEN 3670 

3650 PRINT #2JL»»T5 

3660 PRINT #21 END 

3670 Z$£17f17+L£N<I*>3=I* 

3680 Z«<19+LEN<I*>> MAX 383=C*E 1 »72-< 19+LEN( I* ) ) MAX 383 

3690 GOTO 3710 

3700 Z*=Z«t 1.153 

3710 07=0 

3720 PRINT *3*Z».T5 

3730 T5=C 

3740 GOTO 3130 

3750 REN ***** ROUTINE TO ISOLATE TOKEN ***** 

3760 REM i STARTS LOOKING FOR TOKEN AT P. PUTS IT IN P*. AND 

3770 REM : UPDATES P. IF ENTERED HERE . STOPS SCAN AT ' ' . 

3780 T9=l 

3790 REM ! IF ENTERED HERE. STOPS SCAN AT ' '. '.'. ')'. ' = '. 

3800 FOR II *P TO LEN<I*> 

3810 IF I»CIl.I13 <> * ' THEN 3830 

3820 NEXT II 

3830 P«»" 

3840 FOR 12=11 TO LEN<I*> 

3850 IF I*CI2rI23»* * THEN 3920 

3860 IF T9»l THEN 3900 

3870 IF I*tI2.I23»*. * THEN 3920 

3880 IF I*C12.I23=*)' THEM 3920 

3890 IF I«CI2»Z21'"«* THEN 3920 

3900 P*CLEN<P»>+13»I*EI2»I23 

3910 NEXT 12 

3920 P=*I2 

3930 IF LEN<P«> <> THEN 3950 

3940 P»Ptt 

3950 T9=0 

3960 RETURN 

3970 REM ***** FIND SYMBOL ROUTINE ***** 

3980 REM ! RETURNS P1*=SYML0C IF IT IS FOUND. P1«=0 

3990 REM : IF SYMBOL NOT FOUND 

4000 FOR I=P TO LENU»> 

4010 IF I*CI»I3=*P»C1»I3 THEN 4050 

4020 NEXT I 

4030 P1=0 

4040 RETURN 

4050 P1»I 

4060 RETURN 

4070 REM ***** NUMERIC STRING INTERPRETER ***** 

4080 REM : SIMPLIFIES STRINGS OF LABELS AND NUMERIC EXPRESSIONS 

4090 REM t OF NUMBERS IN ANY BASE. PLUS ASCII CONSTANTS. 

4100 F1«U*0 

4110 A**** 

4120 FOR I»l TO LEN<N«> 

4130 IF N*CX»I3«*+* THEN 4180 

4140 IF N»CI.I3»*~' THEN 4180 

4150 IF N*CI.I3««>* THEN 4610 

4160 A»CLEN(A»)*13=N*CI»I3 

4170 NEXT I 

4180 IF Af <> •.* THEN 4210 

4190 F2=C 

4200 GOTO 4480 

4210 IF A*C1»13> , Z' THEN 4350 

4220 IF A*tl.l3<»A* THEN 4350 
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4230 


READ #2»1 


4240 


IF END #2 THEM 4330 


4250 


READ *2iT*»Ti 


4260 


IF T* <> A* THEN 4240 


4270 


F2»T1 


4280 


T4=3 


4290 


IF END #2 THEN 4320 


4300 


READ »2JT*»T1 


4310 


GOTO 4300 


4320 


GOTO 4480 


4330 


T4*>2 


4340 


RETURN 


4350 


IF A*Cl»i3 <> "" THE! 


4360 


A*»A»C23 



GQSUB 4640 

GOTO 4480 

B-10 

IF A»tl»13 <> **• THEN 4430 
44IQ B=2 
4420 GOTO 4450 

IF MCI*i3 <> *»' THEN 4460 

B-14 

A»=A*C23 
4460 GOSUB 4750 
4470 F2=F 

IF U»2 THEN 45 10 

F1=»F1+F2 

GOTO 4520 
4520 F1*F1-F2 

4520 IF I >* LEN<N«) THEN 4610 
4530 T««*+~* 
4540 FOR UNI TO L£N<T*> 
4550 IF T«CU,U3<*N*CI>n THEN 4590 

NEXT U 

PRINT "ILLEGAL OPERATOR IN LINE "5L 

GOTO 3090 
4590 A*=** 
4600 GOTO 4170 
4610 T4=»Q 
4620 RETURN 

REH ***** ASCII CHARACTER TO NUMBER CONVERTER ***** 

A*=A*Cli.l3 
4650 F2=0 

READ »5»1 

READ #5»T» 

FOR 1*1 TO 72 

IF A«l»13»T*CI.n THEN 4740 
4700 F2-F2+1 
4710 NEXT I 
4720 F2=>F2~8 
4730 GOTO 4670 
4740 RETURN 
4750 REM ***** MULTI-RADIX STRING TO NUMBER CONVERTER ***** 

REM J B IS BASE OF NUMBER IN A*, F IS PRODUCT. * 

F=0 
4780 11*0 

4790 FOR I2=L£N(A»> TO 1 STEP -1 
4800 RESTORE 4910 
4810 FOR N=0 TO B-l 

READ F# 

IF F$»A*CI2rI23 THEN 4870 

NEXT H 
4850 PRINT "BAD NUMBER IN LINE # *L 

GOTO 3090 

F*F+N*B' - U 
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APPtNUIX A 



4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 



STEP -1 
THEN 5020 



11=11+1 

NEXT 12 

RETURN 

DATA m 0't »f»"2*.' , 3 , .*4*.*5*»*6*.*7*, *8* > *9* » *A* . 'B* . *C* • »8* 

DATA •E'r'F'.'G'.'H*. * I * . * J" » *K» » *L* » "H* . *N* . *0*- , *P" > *a* . *R '.*! 

DATA •T*«'a'» , V , »*M»»*X»*»ir«»»Z' 

REM ***** MULTI-RADIX NUMBER TO STRING CONVERTER 

REM ; I IS INPUT NUMBER* R IS BASE THAT A* UILL BE AS PRODUCT. 

A*»" 

T*I 

FOR N=20 TO 

IF T/R-N >=* 

NEXT N 

N=N-1 

Q=INT<T/R"N) 

IF <= R-l THEN 5050 

0=0 

T=T-0*R-N 

RESTORE 4910 

FOR S=0 TO Q 

READ T* 

NEXT S 

A«CLEN«A*>+13=T* 

IF N>0 THEN 5010 

RETURN 

REM *************** OPCODE TABLE *************** 

DATA * 

DATA * 

DATA • 

DATA ' 

DATA ' 

DATA • 

DATA ' 

DATA • 

DATA * 

DATA ' 

DATA "00 

DATA ■ 

DATA " 

DATA '18 

DATA *D8 

DATA *58 

DATA *B8 

DATA * 

DATA • 

DATA " 

DATA • 

DATA *CA 

DATA "88 

DATA ' 

DATA • 

DATA '£8 

DATA *C8 

DATA • 

DATA • 

DATA * 

DATA * 

DATA • 

DATA • 

DATA *EA 

DATA ' 

DATA *48 

DATA '08 

DATA '68 

DATA '28 



* r ' * » 


•69 


.•65 


",'75 






6D 


.*7D 


.*79 


.'61*. 


71*. 








' r * * » 


•29 


'.'25 


',•35 






2D 


»'3D 


.*39 


.'21'. 


31*. 








*.*0A*. 




.*06 


*.*16 






OE 


.*t£ 














' t " * » 






















90* 






* » * ' • 






















BO* 






• » ' ' » 






















FQ 






• , ' • . 




'.•24 








2C 
















r* ' » 






















30 
DO 






* * * * » 






















10 






*»* •» 

■ , • •., 
•»* •» 






















50 
70 






'** 't 


C9 


»*C5 


.*D5 






CD 


.*DD 


.*D9 


.'CI'. 


Dl". 










E0' 


.*E4 








EC 


















CO' 


."C4 
.*C6 


. '06' 






CC 

CE 


.'PE 
















49' 


.'45' 
,*E6' 


»'55* 
»*F6* 






4D 

££ 

4C 
20 


»*5D 
,*FE 


.•59 


.•41'. 


51*. 






6C* 




A9* 


.*A5* 


.*B5" 






AD 


r'BD 


.'89 


.•Al", 


81". 










A2* 


.*A6* 






B6*» 


AE 




.'BE 














AO" 


.*A4" 


.'B4' 






AC 


.*BC 














'.MA'.' 




,•46' 


»*56* 






4£ 


."SE 
















09* 


,•05' 


-•is* 






OD 


»*1D 


.•19 


.'01*. 


11'. 
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6502 APPLICATIONS 



5530 


DATA 


• 




?A 


, • 


• , 


26*. '36* » 




•2E 


, • 


3E 


, • 














5540 


DATA 


■ 


f " 


4A 


t • 


•« 


66' t'76* t 




•6E 


f • 


7E 


t ' 














5550 


DATA 


•40 


, • 




, * 


* , 


' t ' ' f 






t ' 




t • 














5560 


DATA 


*60 


. • 




t * 


" f 


• » ' ' t 






t ' 




r ' 














5570 


DATA 


• 


, • 




-'E9% 


ES«»"F5't 




•ED 


t • 


ED 


• «F9 




El 




Ft 






5580 


DATA 


•38 






, • 


■ f 


* t * * » 






t " 




f • 














5590 


DATA 


•Fa 


, ■ 




, ' 


• . 


* r " * » 






, • 




f • 














5600 


DATA 


•78 


f " 




> ' 


• . 


*»" * t 






> ' 




f • 














5610 


DATA 


• 


, ' 




i * 


• r 


85*. *95'f 




•8D 


t • 


90 


• •99 




81 




91 






5620 


DATA 


* 


, ' 




. • 


• t 


B6*.' *f 


96* 


•8E 


, ' 




, • 














5630 


DATA 


• 


t • 




f ' 


•« 


84"f *94'f 




•8C 


f ' 




t * 














5640 


DA I A 


■AA 


, • 




, • 


" i 


* r * * . 






» • 




r * 














5650 


DATA 


•AB 


, ■ 




, ' 


• , 


* t ' * . 






, ■ 




. • 














5660 


DATA 


•BA 


t ' 




f ' 


• f 


' ► * * t 






. • 




■ • 














5670 


DATA 


•8A 


, ' 




, ' 


• , 


* f * * r 






» ' 




, • 














5680 


DATA 


"9A 


< ' 




t ' 


• , 


* f * " » 






» ' 




t • 














5670 


DATA 


•98' » ' 


• r * 


' r ' f * ' r " ' 


* • r * 


* t ' ' . ' 










5700 


REM **«***»»****t*« MNEMONIC TAPLE 


*************** 








5710 


DATA 


•ADC » 


•AND" 


•ASL* r •£<€€" t 'PCS* 


•DEO*, 


•BIT*. 'DMI*. 


BNE' 






5720 


DATA 


•PPL*. 


■PRK* 


•BVC'f'PVS'.'CLC* 


•CLD', 


*CLI*»*CLV. 


CMP" 


•CPX' . 


•CPY 


5730 


DATA 


* DEC * t 


•DEX* 


■pEY^.'EOR*. 'INC 


•INX'r 


'INY'r 'JMP*. 


JSR' 


r'LPA'. 


•LDX 


5740 


DATA 


•LDY'f 


•LSR" 


'NOP'f 'rjRA'f'PHA* 


■PMP' » 


•PLA'» 'PLP'. 


ROL* 


•ROR't 


•RTI 


5750 


DATA 


•RTS'» 


•SPC* 


•SEC'f "SED*. 'SEI' 


•STA'r 


•STX'f "STY* , 


TAX" 


•TAY'. 


•TSX 


5760 


DATA 


•TXA*» 


'TXS* 


• TYA" 












5770 


END 





































